home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgs.dir / Internal_19_score--stegrar-springer.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  622 b   |  31 lines
  1. property tix, tixV, zP, mmV, horseSprite
  2. global gmObject, sndObject
  3.  
  4. on beginSprite me
  5.   gmObject.backCounter = 30
  6.   horseSprite = gmObject.horseSprites[5]
  7.   horseSprite.frame = 1
  8.   play frame horseSprite
  9.   tixV = 4
  10.   tix = the ticks + tixV
  11.   sndObject.respondSnd(3, 3)
  12. end
  13.  
  14. on exitFrame me
  15.   if (horseSprite.playing = 0) and (soundBusy(1) = 0) then
  16.     gmObject.changeHorse(1)
  17.   end if
  18.   go(the frame)
  19. end
  20.  
  21. on idle
  22.   if the keyDownScript = EMPTY then
  23.     zP = horseSprite.locH
  24.     if the ticks > tix then
  25.       mmV = (the mouseH - zP) / 15
  26.       gmObject.mouseHX(mmV)
  27.       tix = the ticks + tixV
  28.     end if
  29.   end if
  30. end
  31.